﻿Public Class ActElevage
    Public databaseName As String
    Public Sub New(ByVal databaseStr As String)
        InitializeComponent()
        databaseName = databaseStr
    End Sub
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
End Class